"Enter Object Name: "
OBJECT
fnAKA("M->OBJECT")
UPPER(M->OBJECT)
"Enter Other Object Name: "
OTHER
fnAKA("M->OTHER")
UPPER(M->OTHER)
"Enter Notes: "
NOTES
.T.
SPACE(50)
UPPER(M->NOTES)
FLAG
=IIF(EMPTY(GIF)," ","*"):r
iiF(EMPTY(GIF)," ","*")
IIF(EMPTY(GIF)," ","*")
"Object Name: "
"Object Name, press [F1] for list"
"Other Names: "
"Other known names"
"Type of Object: "
TYPE
OBJECT M->TYPE
"!"
.t.
"Type of Object, press [F1] for popup"
PROMPT()
"Constellation : "
CONST
OBJECT M->CONST
"Constellation Name, [F1] for popup"
PROPER(PROMPT())
"Right Ascension : "
RA
"99.9999"
"K"
M->RA>=0.AND.M->RA<=24.AND.FNBURHAM()
"Right Ascension (DD.MMSS)"
"Declination     :"
DEC
"999.9999"
m->DEC>-90.AND.M->DEC<90.AND.fnCONV()
"Declination (+DD.MMSS)"
"Magnitude  : "
MAG
"99.9"
"Magnitude to nearest Tenth"
"Magnitude of Brightest Star: "
BRSTR
"99.99"
"Magnitude of Brightest star in Cluster"
"Description: "
DESC
"Description, press [F1] for list"
"Size       : "
SIZE
[Size in Arc Minutes (') or seconds (")]
"Class: "
CLASS
"Classification, press [F1] for list"
"Source : "
SOURCE
"Source of Info., press [F1] for list"
"# of Stars : "
NSTS
"9999"
"Number of stars within a Cluster"
"U 2000     : "
U2000
=fnU2000(M->RA,M->DEC)
fnU2000(M->RA,M->DEC)
"U 2000 Number"
"Tirion 2000: "
TIRION
=fnTIRION(M->RA,M->DEC)
fnTIRION(M->RA,M->DEC)
"Tirion 2000 Number"
"Clubs: "
CLUBS
"Clubs looking for non-existant NGCs"
" Notes "
"MEMO"
"Enter all notes"
cOBJECT
cOTHER
"Enter Log Date: "
LOG_DATE
"@D"
DATE()
DTOC(M->LOG_DATE,1)
"Enter Log Time: "
LOG_TIME
"99:99:99"
TIME()
LEFT(M->LOG_TIME,5)
"Log Date: "
bADD
"Press [Enter] for Default"
"Log Time: "
M->OBJECT
M->OTHER
M->TYPE
.t. .OR. M->TYPE=SPACE(LEN(M->TYPE))
M->CONST
.t. .OR. M->CONST=SPACE(LEN(M->CONST))
M->RA
M->RA>=0.AND.M->RA<=24
M->DEC
M->DEC>-90.AND.M->DEC<90
"Azimuth  (DDD.MMSS): "
M->AZ
M->AZ >=0 .AND. M->AZ <= 360
"Azimuth (0-360 degress)"
"Altitude (DDD.MMSS): "
M->AL
M->AL >=0 .AND. M->AL <= 90
"Altitude (0-90 degress)"
""
dDATE
M->AL > 0 .OR. M->AZ > 0
{  /  /  }
"Enter Date for viewing Object"
cTIME
"  :  :  "
"Enter Time for viewing Object"
M->MAG
M->BRSTR
M->DESC
M->SIZE
M->CLASS
M->SOURCE
M->NSTS
M->U2000
FNU2000(M->RA,M->DEC)
M->TIRION
FNTIRION(M->RA,M->DEC)
M->CLUBS
"Notes: "
cNOTES
"@S30"
"Enter any wildcard characters"
"Index File : "
nINDEX
"9"
"Press [F1] for popup"
"Index Order: "
nORDER
OBJECT nORDER
"*HT \!\?\<Ascending;\<Descending"
"Select Index Order"
"Starting Log Date: "
dDATE_1
nBAR = 4
"Press [Enter] for Default of all"
"Ending Log Date: "
dDATE_2
"Numeric Factor: "
nFAC
"999.999"
"Applied to all numberic input fields"
1
"Enter Name: "
NAME
UPPER(M->NAME)
"Enter Star: "
STAR
UPPER(M->STAR)
"Enter Component: "
COMP
UPPER(M->COMP)
"Name: "
"Star Name, press [F1] for list"
"Star: "
"Magnitude of Primary: "
MAG1
"Magnitude to Primary Star"
"Magnitude of Secondary: "
MAG2
"Magnitude of Secondary star"
"Components: "
"Components of Multiple System"
"Separation: "
SEP
"999.9"
"Separation of the Pair in arc seconds"
"Position Angle: "
PA
"999"
"Position Angle of Pair, N clockwise"
"Spectrum  : "
SPEC
"Spectrum of Primary"
"Year      : "
YEAR
"Year of Measurement"
"ADS Catalog   : "
ADS
"99999"
"Aitken Double Star Catalog"
"Clubs looking for double stars"
cNAME_
cSTAR
M->NAME
M->STAR
"Declination (DD.MMSS)"
M->MAG1
M->MAG2
M->COMP
M->SEP
M->PA
M->SPEC
M->YEAR
M->ADS
"Maximum Magnitude: "
"Maximum Magnitude"
"Minimum Magnitude: "
"Minimum Magnitude"
"Period: "
PERIOD
"Period in days"
M->PERIOD
"Enter Sky & Telescope #: "
SKY_TEL
UPPER(M->SKY_TEL)
"Object Name"
"Sky & Telescope #: "
"Sky & Telescope Guide #"
"Lunar Longitude : "
LON
"Lunar Longitude (DD.MMSS)"
EW
M->EW $ "EW"
"Must be [E]ast or [W]est"
"[E]ast or [W]est"
"Lunar Latitude  : "
LAT
"Lunar Latitude  (DD.MMSS)"
NS
M->NS $ "NS"
"Must be [N]orth or [S]outh"
"[N]orth or [S]outh"
"Clubs looking for lunar objects"
cSKY_TEL
M->SKY_TEL
"Type of Object"
M->LON
M->EW
M->EW $ " EW"
M->LAT
"Lunar Latitude (DD.MMSS)"
M->NS
M->NS $ " NS"
"Clubs looking for celestial objects"
SACED1